setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
dim a$[4]:a$[1]="dragon":a$[2]="lion":a$[3]="eagle":a$[4]="panther"
for i=1 to 4
prints(a$[i])
next
waitkey